﻿Imports MySql.Data.MySqlClient

Public Class ucTratadoras

    Private Sub btnAlta_Click(sender As Object, e As EventArgs) Handles btnAlta.Click

        'Si el usuario no es Admin entonces no permito ingresar
        If varIdUsuarioSistema <> 1 Then
            MsgBox("No tiene permisos", vbOKOnly + vbExclamation, "Atención")
            Exit Sub
        End If

        Dim f As New frmTratadoraAlta
        f.ShowDialog(Me)


        'Actualizo grilla
        sqlConsulta = "SELECT Id, modelo as Nombre, Model As Modelo, Serie, Pais As Empresa, Localidad As Ciudad FROM tratadoras Where Activo=1"
        cn.LlenarGrilla(varUcTratadoras.dgvTratadoras, sqlConsulta)

    End Sub

    Private Sub btnModificacion_Click(sender As Object, e As EventArgs) Handles btnModificacion.Click

        'Si el usuario no es Admin entonces no permito ingresar
        If varIdUsuarioSistema <> 1 Then
            MsgBox("No tiene permisos", vbOKOnly + vbExclamation, "Atención")
            Exit Sub
        End If

        Dim f As New frmTratadoraModificacion
        f.ShowDialog(Me)


        'Actualizo grilla
        sqlConsulta = "SELECT Id, modelo as Nombre, Model As Modelo, Serie, Pais As Empresa, Localidad As Ciudad FROM tratadoras Where Activo=1"
        cn.LlenarGrilla(varUcTratadoras.dgvTratadoras, sqlConsulta)

    End Sub

    Private Sub btnProcesar_Click(sender As Object, e As EventArgs) Handles btnProcesar.Click
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor

        'Seteo variable global del id de la tratadora que voy a usar para procesar el archivo
        varIdTratadora = dgvTratadoras.SelectedRows(0).Cells("Id").Value

        'Seteo variable global del nombre de la tratadora que voy a usar para procesar el archivo
        Dim serie As String = dgvTratadoras.SelectedRows(0).Cells("Serie").Value
        'Agrego ceros a la izquierda hasta quedar de 3 digitos
        serie = serie.PadLeft(3, "0")
        varNombreTratadora = dgvTratadoras.SelectedRows(0).Cells("Modelo").Value & "-" & serie
        varTituloTratadora = "LS-" & dgvTratadoras.SelectedRows(0).Cells("Modelo").Value & " Nro: " & serie

        Dim f As New frmTratadoraProcesar

        f.ShowDialog()

        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub btnVer_Click(sender As Object, e As EventArgs) Handles btnVer.Click

        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor

        'Seteo variable global del id de la tratadora que voy a usar para procesar el archivo
        varIdTratadora = dgvTratadoras.SelectedRows(0).Cells("Id").Value

        'Seteo variable global del nombre de la tratadora que voy a usar para procesar el archivo
        Dim serie As String = dgvTratadoras.SelectedRows(0).Cells("Serie").Value
        'Agrego ceros a la izquierda hasta quedar de 3 digitos
        serie = serie.PadLeft(3, "0")
        varNombreTratadora = dgvTratadoras.SelectedRows(0).Cells("Modelo").Value & "-" & serie
        varTituloTratadora = "LS-" & dgvTratadoras.SelectedRows(0).Cells("Modelo").Value & " Nro: " & serie

        Dim f As New frmTratadoraConsulta
        'Le paso el valor por el tag del formulario para poder abrir varios formularios para consultar distintas tratadoras
        f.Tag = dgvTratadoras.SelectedRows(0).Cells("Id").Value
        f.Show(Me)

        Me.Cursor = System.Windows.Forms.Cursors.Default

    End Sub

    Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles btnEliminar.Click

        Try

            'Si el usuario no es Admin entonces no permito ingresar
            If varIdUsuarioSistema <> 1 Then
                MsgBox("No tiene permisos", vbOKOnly + vbExclamation, "Atención")
                Exit Sub
            End If

            'Si selecciono NO salgo
            If MsgBox("Si elimina la tratadora también se eliminarán todos los datos asociados" & Chr(13) & "¿Desea eliminar la tratadora seleccionada?", vbYesNo + vbExclamation, "Atención") = vbNo Then
                Exit Sub
            End If

            sql = "UPDATE tratadoras SET activo=0 WHERE id=" & varUcTratadoras.dgvTratadoras.SelectedRows(0).Cells("id").Value

            Dim cmd As New MySql.Data.MySqlClient.MySqlCommand(sql)

            cn.ExecNonQuery(cmd)

            MsgBox("Se eliminó correctamente", vbOKOnly + vbInformation, "Proceso exitoso")

            'Actualizo grilla
            sqlConsulta = "SELECT Id, modelo as Nombre, Model As Modelo, Serie, Pais As Empresa, Localidad As Ciudad FROM tratadoras Where Activo=1"
            cn.LlenarGrilla(varUcTratadoras.dgvTratadoras, sqlConsulta)

        Catch ex As Exception
            MensajeError()
        End Try

    End Sub

    Private Sub pbLogo_Click(sender As Object, e As EventArgs) Handles pbLogo.Click
        Process.Start("IEXPLORE", "www.ls-arg.com.ar")
    End Sub

End Class
